RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**FILE**1D**DSPPAG 


DDDDDDDD SSSSSSSS PPPPPPPP PPPPPPPP AAAAAA GGGGGGGG 

DDDDDDDD SSSSSSSS_ PPPPPPPP PPPPPPPP AAAAAA GGGGGGGG 

DD DD SS PP PP PP PP AA AA GG 

dD DD SS PP PP PP PP AA AA GG 

dD DD SS PP PP PP PP AA AA GG 

DD DD SS PP PP PP PP AA AA GG 
DD DD SSSSSS PPPPPPPP PPPPPPPP AA AA GG 

DD dD SSSSSS PPPPPPPP PPPPPPPP Ag AA GG 
DD DD SS PP PP AAAAAAAAAA GG GGGGGG 
DD DD SS PP PP AAAAAAAAAA GG GGGGGG 

DD dD SS PP PP AA AA GG GG eee 

Dd DD SS PP PP AA AA GG GG eee 

DDDDDDDD SSSSSSSS PP PP AA AA GGGGGG cee 

DDDDDDDD SSSSSSSS PP PP AA AA GGGGGG eeee 

LL IIIIII SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] S$ 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLELLLLLLLL IIIII] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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ZTITLE ‘Processes the DISPLAY NUMBER, & .DISPLAY SUBPAGE’ 
vor ieesoee ( IDENT = ‘v04-000 


} 
ADDRESSING MODE (EXTERNAL =LONG, RELATIVE, NONEXTERNAL=LONG_RELAT IVE) 


)= 
BEGIN 


1 
PTTITITI LILLIE LLL LLL TLE LITT iT TTTiTititiTittTtTtTe 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH itt AND wine Me, 


'® TRANSFERRED. 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- PORPORAT Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 


ONAL WN $ O OONAUE WO OONOUS wr — 


gig! FOR THE USE OR RELIABILITY OF ITS 


I 
H IS NOT SUPPLIED BY DIGITAL. 


* 
+ 
‘ 
* 
* 
a 
* 
® 
* 
: Ss * 
:® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* 
* 
* 
4 
« 
. 
® 
. 
* 
* 
* 


SRR RRA 
' 


i¢¢ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: Processes the .DISPLAY APPENDIX, .DISPLAY CHAPTER, .DISPLAY NUMBER, and .DISPLAY SUBPAGE command 


AUTHOR: R.W.Friday CREATION DATE: May, 1979 
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on History 14-Sep-1984 15:06: RUNOFF .SRCJDSPPAG.BLI; 
} RSBTTL "Revision History’ 
MODIFIED BY: 
1! 004 REM00004 Ray Marshall 27-April-1983 
1! To decommit this routine's handling of the .DISPLAY APPENDIX and 
3 «DISPLAY CHAPTER directives. They will hence forth be handled 
: by code DSPENT.8LI. 
1/ 003 KFA00003 Ken Alden 07-Mar-1983 
1! Global edit of all modules. Updated module names, idents, 
: copyright dates. Changed require files to BLISS library. 
] jue 
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‘characteristics immediately because the page number hasn't gone 

‘out yet, unless you're doing the standard layout. 

‘out yet l ‘re doing the standard t 

'Perhaps another way of describing what's going on here is simply to 
peer that you can't let the display characteristics of the page number 
ige out of synch with what's appeared or not appeared so far. 

'Note that there is a very close coordination with the workings of 
'NEWPAG implied here. 


.PHAN_TOP_FIRST 
OR 


( (NOT .PHAN TOP PAGE) 
ile AND (.HCT_CAYOOT NEQ LAYOUT_STANDARD)  ) 


. PAGEN Ca,b.c,d) = .DISPLAY_CODE 


3 Fes 0038 ] XSBTTL "Module Level Declarations’ 

; 61 $38 1 ! TABLE OF CONTENTS: 

3 66 0060 1! 

; * Be) 1 

> 3664 066 1! 

; 0065 1 ! INCLUDE FILES: 

; © 0064 1! 

; 0065 1 

3 68 8098 1 LIBRARY ‘NXPORT:XPORT'; ' XPORT Library 

; 4 Beet ; REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 

eR a U $199 1 RIF DSRPLUS XTHEN 

ey U 0200 1 LIBRARY ‘REQ:DPLLIB'; ! DSRPLUS BLISS Library 

: 0502 1 TIBRARY "REQ:DSRLIB" ! DSR BLISS Lib 

: "REQ: : rar 

: 9 0 08 1 Fl , 

Be $508 1! 

; 78 0206 1 ! MACROS 

; 0207 1! 

; & $44 1 tAlthough the SET DISPLAY macro has four parameters, it always 

; 8 0209 1 peepeers as if it’s being called with just one. That's because 

: § ost 1 tall the display names (e.g., SCT_PAGE_D) are really macros 

; ¢ 0211 1 !defining fields, and they expand into a ‘'comma List'’ containing 

ae |) at 1 !four items. 

3; & 0213 (1 0 

; 686 0214 1 SET_DISPLAY (a,b,c.d) = 

: 87 §512 1 BEG 

ee 0216 1 'The display characteristics take effect on the next 

; 0217 1 pees. at the very latest. So that is always safe to set. 

: 0218 1 NPAGEN Ca,b,c,d] = .DISPLAY_CODE; 

; 0219 1 ‘At the top of the first page this takes effect immediately, since nothing 
3 0220 1 'has been output yet at all. However, at the top of any other pages you 
3 855; 1 ‘have to be careful. If the user has given a .LAYOUT command tha 
; 0 ; 1 ‘causes the page number to be centered at the bottom, the page number 
3 0223 1 ‘has not yet been output even if .PHAN_TOP_PAGE is set. In that case 
; 0224 1 ‘you need to let NEWPAG finish the page and then it's ok to use the 
3 0225 1 ‘display characteristics on the next page. On the other hand, 

3 os5¢ ; ‘if you're in the middle of the page it’s ok to set the display 

3 0228 1 

3 0229 1 

: 8 0 1 

0532 | 

3 0 35 1 

3 34 «WN 

; .ce 

3 $ 1 

3 1 

3 S 1 

3 1 

3 40 1 

: 41 1 

g 0 4g 1 

3 0245 1 
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GLOBAL ROUTINE DSPPAG (HANDLER) : NOVALUE = : 


144 
} FUNCTIONAL DESCRIPTION: 


See the ABSTRACT for a general description. 
FORMAL PARAMETERS: 

HANDLER indicates which command is to be processed. 
IMPLICIT INPUTS: 

Very close coordination with the workings of NEWPAG is implied. 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


! SIDE EFFECTS: None 


BEGIN 
L 


OCAL 
GETDD_RESULT, 
DISPLAY_CODE; 


'Skip spaces and tabs before the display descriptor. 
RSKIPS (IRA); 


‘And now actually try to get the discriptor. 
GETDD_RESULT = GETDD (DISPLAY_CODE); 


‘Ignore an invalid descriptor 
IF .GETDD_RESULT EQL -1 


HEN 
RETURN; 
'Distinguish between missing display code and one that 
lis Even. 
o -GETDD_RESULT EQL 0 
'No display code supplied 
BEGIN _ - 
5 supply the standard Gi eplay as the default 
DISPLAY_CODE = eal ee ron «HANDLER OF 
H_DISPLAY_NUMBE} : TCONVRT 
H_DISPLAY_SUBPA] : TCONVRT_LET_ 
TES ); 
END; 


SELECTONE .HANDLER OF 
SET 
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: 195 j H_DISPLAY_NUMBE] : SET_DISPLAY (SCT_PAGE_D); 
: 196 H-DISPLAY-SUBPA] : SET DISPLAY (SCT"SUBPG_D); 
: 197 i TES; 
: 198 5 
: 199 0326 END; ‘End of DSPPAG 
| 
4 -TITLE OSPPAG or ecesges the .DISPLAY NUMBER, & .DISPLA | 
.IDENT \V04-000\ | 
.EXTRN HCT, IRA, PHAN, PAGEN 
SEXTRN NPAGEN, GETDD, RSKIPS | 
-PSECT S$CODE$,NOWRT,2 | 
000¢ 00000 .ENTRY DSPPAG, Save R2,R3 : 0265 
53 000000006 EF 9E 00002 MOVAB HCT+28. R3 : | 
52 00000000G_ ‘EF H 00009 MOVAB PHAN+24, R2 : 
5E 04 C¢ 90019 SUBL2 #4, SP : 
000000006 EF 9SF 0001 PUSHAB IRA + 0295 
000000006 EF 01 FB 00019 CALLS #1, RSKIPS ; 
5E Dd 00020 PUSHL SP : 0298 
000000006 EF 01 FB 00022 CALLS #1, GETDD ; 
FFFFFFFF © 8F 50 01 900¢9 CMPL  GETDD_RESULT, #-1 : 0301 
6A 13 00030 BEQL ; 
50 05 00032 TSTL  GETDD_RESULT : 0307 
1D 12 00034 BNE : | 
50 04 AC 00 00036 MOVL HANDLER. RO : 0312. 
26 50 D1 O003A CMPL = RO, #38 > 0314 
04 12 0003p BNEQ ; 
50 D4 0003F CLRL = RO ; 
0D 11 00041 BRB 3$ ; 
28 50 D1 00043 1$: CMPL RO, #40 : 0315) 
05 13 00046 BEQL $ : 
50 01 CE 00048 MNEGL #1, RO F 
03 11 00048 BRB 3$ : 
50 02 DO 00040 a8: MOVL #2, RO : 
bE 50 DO 00050 3$: MOVL RO, DISPLAY_CODE + 0312 
50 04 AC DO 00053 4s: MOVL HANDLER, RO : 0319 
26 50 D1 00057 CMPL : > 0322 
iE fF 0005A BNE ; 
000000006 _ EF 04 04 6E F 0005¢ INSV  DISPLAY_CODE, #4, #4, NPAGEN : 
08 é Es 906 BLBS § PHAN*+247 5$ : 
E8 A2 E8 00068 BLBS = PHAN, 8$ : 
6 D3 906¢ TSTL  HCT+28 : | 
a O6e BEQL = 8S : 
000000006 EF 04 04 6E FO 9079 5$: INSV DISPLAY_CODE, #4, #4, PAGEN ; 
28 50 D1 SOFA 6$: CMPL RO, #40 : 0323, 
1D 12 00070 BNEQ : 
000000006 _ EF 04 00 6— FO 0007F INSV  DISPLAY_CODE, #0, #4, NPAGEN+12 ; 
08 62 £8 000 BLBS § PHAN*+24> 7$ ; | 
0D E8 A2 EB 000 BLBS PHAN, 8$ ; 
63 D5 0008F TSTL HET #28 ; | 
09 13 00091 BEQL ; 
00000000G_ EF 04 00 6E FO 00093 7$: INSV DISPLAY_CODE, #0, #4, PAGEN+12 ; 


DSPPAG Processes the .DISPLAY NUMBER, & .DISPLAY SUBPA 18-56 Sep-1984 AX-11 B - 4.0-74 

v04-000 Module Level Declarations £8 ep-1986 99: 86: 88 RUNOFF. at C DeePAC: ais Spat «as 
04 0009C 8$: RET ; 0326 

; Routine Size: 157 bytes, Routine Base: S$CODE$ + 0000 

: 200 0327 1 END 'End of modul 

: $0 8358 0 ELUDON an Sates 


| 
PSECT SUMMARY 
Name Bytes Attributes 


SCODES 157 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Sa Coe ar ed wa Sere Symbols -------=- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 

; ~$255$DUA28: CRUNOFF . SRCIDSRLIB. L32;1 1248 16 1 86 00:00.3 

i COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:DSPPAG/OBJ=OBJ$:DSPPAG MSRC$:DSPPAG/UPDATE=(ENH$:DSPPAG) 


3; Size: 157 code + 0 data bytes 
; Run Time: 00:04.0 

; Elapsed Time: 00:12.7 

3; Lines/CPU Min: 4969 

3 aang hoe Mike 14000 

; ry Used: 47 pages 

3 — ation Complete 
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